home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Passing Notes.cpt / Passing Notes / card_3770.txt < prev    next >
Text File  |  1992-04-01  |  5KB  |  226 lines
  1. -- card: 3770 from stack: in
  2. -- bmap block id: 21334
  3. -- flags: 4000
  4. -- background id: 2605
  5. -- name: conclusion
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   hide cd btn "cloister"
  9.   repeat with i = 2 to 4
  10.     if visible of cd fld i is true
  11.     then
  12.     click at 60,300
  13.     exit repeat
  14.   end if
  15. end repeat
  16. if visible of cd fld "madonna" is true then
  17.   lock screen
  18.   hide cd fld "madonna"
  19.   unlock screen with dissolve
  20. end if
  21. pass closeCard
  22. end closeCard
  23.  
  24.  
  25. -- part 2 (button)
  26. -- low flags: 00
  27. -- high flags: 0000
  28. -- rect: left=254 top=26 right=316 bottom=488
  29. -- title width / last selected line: 0
  30. -- icon id / first selected line: 0 / 0
  31. -- text alignment: 1
  32. -- font id: 0
  33. -- text size: 12
  34. -- style flags: 0
  35. -- line height: 16
  36. -- part name: 
  37. ----- HyperTalk script -----
  38. on mouseUp
  39.   if visible of cd fld "madonna" is false and icon of cd btn id 5 is not 6102 then
  40.     Click at 60,300
  41.     wait 30
  42.   end if
  43.   popup "madonna"
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 3 (field)
  49. -- low flags: 81
  50. -- high flags: 2004
  51. -- rect: left=259 top=202 right=309 bottom=508
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 0
  55. -- font id: 3
  56. -- text size: 9
  57. -- style flags: 0
  58. -- line height: 12
  59. -- part name: madonna
  60.  
  61.  
  62. -- part 5 (button)
  63. -- low flags: 00
  64. -- high flags: 0000
  65. -- rect: left=54 top=275 right=314 bottom=95
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 6102 / 6102
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: 
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   global ThisOne
  77.   cleanScreen
  78.   if visible of cd fld "madonna" is true then
  79.     lock screen
  80.     hide cd fld "madonna"
  81.     unlock screen with dissolve
  82.   end if
  83.   put (item 1 of clickLoc()) - (item 1 of the rect of me) into A
  84.   put (item 1 of clickLoc()) - (item 3 of the rect of me) into B
  85.   put (item 2 of the rect of me) - (item 2 of clickLoc()) into C
  86.   put (item 4 of the rect of me) - (item 2 of clickLoc()) into D
  87.   put (item 1 of clickLoc()) - (item 1 of loc of me) into E
  88.   put (item 2 of clickLoc()) - (item 2 of loc of me) into F
  89.   play "Switch" fe
  90.   if (A < abs(B)) then
  91.     if (abs(C) < D) then
  92.       showhidefld1 6103,2
  93.     else if (abs(C) > D) then
  94.       showhidefld1 6102,0
  95.     end if
  96.   end if
  97.   if (A > abs(B)) then
  98.     if (abs(C) < D) then
  99.       showhidefld1 6100,3
  100.     else if (abs(C) > D) then
  101.       showhidefld1 6101,4
  102.     end if
  103.   end if
  104. end mouseUp
  105.  
  106. on showhidefld1 IconNo,ThisOne
  107.   set icon of target to IconNo
  108.   lock screen
  109.   repeat with i = 2 to 4
  110.     hide cd fld i
  111.   end repeat
  112.   if ThisOne is not "0" then
  113.     show cd fld ThisOne
  114.   else
  115.   end if
  116.   unlock screen
  117. end showhidefld1
  118.  
  119.  
  120. -- part 6 (field)
  121. -- low flags: 81
  122. -- high flags: 2004
  123. -- rect: left=75 top=47 right=267 bottom=246
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 3
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 14
  131. -- part name: DoNotPop
  132.  
  133.  
  134. -- part 7 (field)
  135. -- low flags: 81
  136. -- high flags: 2004
  137. -- rect: left=75 top=84 right=256 bottom=251
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 0
  141. -- font id: 3
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 14
  145. -- part name: DoNotPop
  146.  
  147.  
  148. -- part 8 (field)
  149. -- low flags: 81
  150. -- high flags: 2004
  151. -- rect: left=72 top=24 right=269 bottom=342
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 0
  155. -- font id: 3
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 14
  159. -- part name: DoNotPop
  160.  
  161.  
  162. -- part 10 (button)
  163. -- low flags: 80
  164. -- high flags: A000
  165. -- rect: left=195 top=269 right=316 bottom=250
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 22873 / 22873
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: Cloister
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   visual zoom in
  177.   go stack "Imitatio Christi"
  178.   if result() is empty then
  179.   else
  180.     beep
  181.   end if
  182. end mouseUp
  183.  
  184.  
  185. -- part contents for card part 3
  186. ----- text -----
  187. Retouched detail from Madonna painted perhaps as early as 4th century A.D. and discovered during the cleaning of a much repainted panel found in Rome.  It may be the oldest surviving painting 
  188. (not counting murals).  The original suggests a deeper, richer version of the faces Modigliani would paint 1500 years later.
  189.  
  190. -- part contents for card part 6
  191. ----- text -----
  192. When all the functions performed by the brain as we understand it have been stilled, what remains?  Not, as one might suppose, nothing at all, but an amazing sense of diety, to which mystics of all ages bear witness.
  193.  
  194.  -G. Taylor,  
  195. THE NATURAL HISTORY OF THE MIND
  196.  
  197.  
  198. -- part contents for card part 7
  199. ----- text -----
  200. Why level downwards to our dullest perceptions always, and praise that as common sense?  The commonest sense is the sense of men asleep, which they express by snoring....
  201.  
  202. -Henry David Thoreau
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  
  209. -- part contents for card part 8
  210. ----- text -----
  211. Mock on, Mock on, Voltaire, Rousseau;
  212. Mock on, Mock on, 'tis all in vain, 
  213. You throw the sand against the wind,
  214. And the wind blows it back again.
  215.  
  216. And every sand becomes a Gem
  217. Reflected in the beams divine;
  218. Blown back, they blind the mocking Eye,
  219. But still in Israel's paths they shine.
  220.  
  221. The Atoms of Democritus
  222. And Newton's Particles of light
  223. Are sands upon the Red sea shore, 
  224. Where Israel's tents do shine so bright.
  225.  
  226. -William Blake, 1803